home *** CD-ROM | disk | FTP | other *** search
/ Trading on the Edge / Trading On The Edge - CD-ROM Toolkit (Wayzata Technology)(2031)(1994).bin / pc / mac_file / vendor_d / neuralwa / nw2v50 / adaline.inh next >
Text File  |  1993-08-23  |  3KB  |  102 lines
  1. inst4.1
  2. !****************************************************************
  3. !*                                *
  4. !*    Adaline Network Generator                *
  5. !*                                *
  6. !****************************************************************
  7.  
  8. !    *** check that input / output PE count is non-zero
  9.  
  10. ?&In    1
  11. >bge    CheckOut
  12. @Err    "Adaline MUST have at least one input PE"
  13. :CheckOut
  14. ?&Out    1
  15. >bge    OutOK
  16. @Err    "Adaline MUST have at least one output PE"
  17. :OutOK
  18.  
  19. !    *** Load the Control Strategy and LRS if needed
  20.  
  21. @LdCS    "adaline"        !control strategy
  22. @LdLR    "adaline"        !L/R schedule
  23.  
  24. =netn    "InstaNet (tm) Adaline Network version 1.00 20-Jun-88"
  25. =DLnF    0            !learn  re-display off
  26. =DRcF    0            !recall re-display off
  27.  
  28. !    *** Build the Input Layer ***
  29.  
  30. @LLdf                !load default layer to mi_layer structure
  31. =LDln    "In"            !layer name
  32. =Lpes    &In            !copy # of input PEs from menu
  33. !=Ltrn    "Signum"        !signum transfer function
  34. =x    100            !place to put layer on screen
  35. =y     80
  36. #Incl    "stdnwgtf.iif"        !standard # weight fields
  37. @LAdd                !add the input layer
  38.  
  39. !    *** Build the Adaline Layer ***
  40.  
  41. @LLdf                !start with default layer again
  42. =LDln    "Adaline"        !adaline layer name
  43. =Lpes    &Out            !same as the number of output PEs
  44. =Ltrn    "Signum"        !transfer function
  45. =Llrn    "Adaline"        !adaline learning rule
  46. +y    80            !up higher on display
  47. #Incl    "stdnwgtf.iif"        !standard # weight fields
  48. @LAdd
  49.  
  50. !    *** Connect Adaline Layer to Bias & Input Layers ***
  51.  
  52. =SPEl    1            !current layer
  53. @SlPE                !select it as destination (sb already)
  54. =NPEl    -1            !near to bias term (source)
  55. @NrPE
  56. =cnwt    1.0            !connection weight
  57. =cnty    WVar            !variable
  58. =cnsc    WAbs            !absolute
  59. @LCFl
  60. =NPEl    0            !input layer
  61. @NrPE
  62. @LCFl
  63.  
  64. !    *** Build the output layer & connect it to prior layer ***
  65.  
  66. @LLdf                !load default layer to mi_layer structure
  67. =LDln    "Out"            !layer name
  68. =Lpes    &Out            !copy # of input PEs from menu
  69. +y    80
  70. #Incl    "stdnwgtf.iif"        !standard # weight fields
  71. @LAdd                !add the output layer
  72. =SPEl    2            !output layer
  73. @SlPE
  74. =NPEl    1            !adaline layer
  75. @NrPE
  76. =cnty    WFix            !fixed weight
  77. =cnsc    WRel
  78. @LCCr                !connect corresponding
  79.  
  80. !    *** Select Control Strategy & L/R Schedule ***
  81.  
  82. @LLsl                !load super layer
  83. =Lctl    "adaline"        !adaline control strategy
  84. =Llrs    "adaline"        !adaline L/R Schedule
  85. =Llnn    "adaline"        !name of learn input
  86. =Lrcn    "adaline"        !name of recall output
  87. #Incl    "stdioset.iif"        !standard I/O settings
  88. =Lscl    -1            !input  low-value
  89. =Loff     1            !input  high-value
  90. =Llow    -1            !output low-value
  91. =Lhgh     1            !output high-value
  92. =Lax1    Epch            !epoch size
  93. @SVsl                !save it back
  94. !
  95. =jogl    -.1            !lower limit for jog
  96. =jogh    +.1            !upper limit for jog
  97. =seed    257            !starting seed number
  98. @seed                !set the seed
  99. @Nini                !randomize the network
  100.  
  101. @EOF
  102.